home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101a.zip / $$CALL.SCR < prev    next >
Text File  |  1992-09-28  |  1KB  |  61 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ Terminal script for 1stReader │
  3. '       │ Written by Mark Herring       │
  4. '       │ September 27, 1992            │
  5. '       └───────────────────────────────┘
  6.  
  7. TIMEOUT 30
  8.  
  9. LOOKFOR "correct? " "^M"
  10. LOOKFOR "elp, More? " "N^M"
  11. LOOKFOR "(Enter)=yes? " "N^M"
  12. LOOKFOR "Language #" "@LANGUAGE@^M"
  13.  
  14. LOCKLINE 20 30
  15. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  16. COMMENT "@DATE@ @TIME@  Logging in to system"
  17.  
  18. WAITFOR "color|graphics" 20
  19. TRANSMIT "@GRAPHICS@ Q^M"
  20. WAITFOR "first name" 50
  21. IF FOUND=0 EXIT
  22. TRANSMIT "@USER@^M"
  23. WAITFOR "password|new user?" 30
  24. LOOKFOR "correct? " ""
  25. IF FOUND=1 GOTO LOGIN
  26. IF FOUND=2 GOTO NEWUSER
  27.  
  28. COMMENT "@DATE@ @TIME@  New user login"
  29. LOOKFOR "(Enter)=yes? " ""
  30. LOOKFOR ") to continue?" ""
  31. IF NOT SWITCH 1 HELP 198
  32. TERMINAL
  33. LOOKFOR "(Enter)=yes? " "N^M"
  34. LOOKFOR ") to continue?" "^M"
  35. GOTO TERM
  36.  
  37. :NEWUSER
  38. COMMENT "@DATE@ @TIME@  New user login"
  39. LOOKFOR "(Enter)=yes? " ""
  40. LOOKFOR ") to continue?" ""
  41. IF NOT SWITCH 1 HELP 198
  42. TRANSMIT "^M"
  43. WAITFOR ")=yes?" 30
  44. TRANSMIT "Y^M"
  45. WAITFOR "please!)?" 30
  46. TRANSMIT "@PASSWORD@^M"
  47. WAITFOR "verify?" 30
  48. TRANSMIT "@PASSWORD@^M"
  49. TERMINAL
  50. LOOKFOR "(Enter)=yes? " "N^M"
  51. LOOKFOR ") to continue?" "^M"
  52. GOTO TERM
  53.  
  54. :LOGIN
  55. COMMENT "@DATE@ @TIME@  Transmitting password"
  56. TRANSMIT "@PASSWORD@^M"
  57.  
  58. :TERM
  59. TERMINAL
  60. EXIT
  61.